* keyboard.c (Fcurrent_input_mode): Use XFASTINT to build the last

	element of the return value, not XSETINT.

diff --git a/src/keyboard.c b/src/keyboard.c
index 6b267bd8e087b362c33fc15593239c301ef89c54..e9a9cd30d6b62937a14f6963906126ecb3a63af9 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4578,7 +4578,7 @@ The elements of this list correspond to the arguments of\n\
   val[0] = interrupt_input ? Qt : Qnil;
   val[1] = flow_control ? Qt : Qnil;
   val[2] = meta_key == 2 ? make_number (0) : meta_key == 1 ? Qt : Qnil;
-  XSETINT (val[3], quit_char);
+  XFASTINT (val[3], quit_char);
 
   return Flist (val, sizeof (val) / sizeof (val[0]));
 }